home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue06 / comp / comp_copy (.txt) next >
Encoding:
RISC OS BBC BASIC V Source  |  1990-01-17  |  530 b   |  17 lines
  1.  > $.Comp_Copy
  2. *FX225,1
  3. *DIR $
  4. (*KEY0 *EXEC $.SCREENSUBS |M GOTO8 |M
  5. *FX153,0,128
  6. Work%256
  7. INIT("Archive","COPY PROGRAMS TO FLOPPY")
  8. ENTER("Load Floppy (unprotected) & press RETURN",1,0," ",
  9. (27)):
  10. Y%=27
  11. "$.COMP_MENU"
  12. 5*COPY SCSI::4.$.Comp_Menu ADFS::0.$.Comp_Menu f~c
  13. 7*COPY SCSI::4.$.ScreenSubs ADFS::0.$.ScreenSubs f~c
  14. 5*COPY SCSI::4.$.Comp_Copy ADFS::0.$.Comp_Copy f~c
  15. *CDIR ADFS::0.$.Comp_Dec89
  16. 6;*COPY SCSI::4.$.Comp_Dec89.* ADFS::0.$.Comp_Dec89.* f~c
  17.